unit uClasseTmpEtiqueta;

interface

uses
  uClasseBase;

type
  TTmp_Etiqueta = class(TConsultaBase)
  const
    Tabela     = 'Tmp_Etiqueta';
    PrimaryKey = 'nr_sequencia';
  private
    Fnr_cliente_seq:    integer;
    Fnr_seq_orcamento_item: integer;
    Fds_volume:       string;
    Fie_imprimir:     boolean;
    Fie_impresso:     boolean;
    Fnr_conjunto:     integer;
    Fnr_seq_caixa: Integer;
    Fnr_sequencia: Integer;
    procedure Setnr_cliente_seq(const Value: integer);
    procedure Setds_volume(const Value: string);
    procedure Setie_impresso(const Value: boolean);
    procedure Setie_imprimir(const Value: boolean);
    procedure Setnr_seq_orcamento_item(const Value: integer);
    procedure Setnr_conjunto(const Value: integer);
    procedure Setnr_seq_caixa(const Value: Integer);
    procedure Setnr_sequencia(const Value: Integer);
  public
    class function GetTabela:string;override;
    class function GetPrimaryKey:string;override;
    function       ExcluirPKInsert:Boolean;override;
    constructor Create;overload;
  published
    property nr_sequencia:Integer read Fnr_sequencia write Setnr_sequencia;
    property  nr_cliente_seq   :integer read Fnr_cliente_seq    write Setnr_cliente_seq;
    property  nr_conjunto    :integer read Fnr_conjunto     write Setnr_conjunto;
    property  ds_volume      :string  read Fds_volume       write Setds_volume;
    property  nr_seq_orcamento_item:integer read Fnr_seq_orcamento_item write Setnr_seq_orcamento_item;
    property  nr_seq_caixa   : Integer read Fnr_seq_caixa   write Setnr_seq_caixa;
    property  ie_imprimir    :boolean read Fie_imprimir     write Setie_imprimir;
    property  ie_impresso    :boolean read Fie_impresso     write Setie_impresso;
  end;

implementation

uses
  uUtils,
  ADODB,
  SysUtils;

{ TTmp_Etiqueta }

constructor TTmp_Etiqueta.Create;
begin
  FADOConn := TConexao.Interna;
  inherited;
end;

function TTmp_Etiqueta.ExcluirPKInsert: Boolean;
begin
  result := True;
end;

class function TTmp_Etiqueta.GetPrimaryKey: string;
begin
  result := PrimaryKey;
end;

class function TTmp_Etiqueta.GetTabela: string;
begin
  result := Tabela;
end;

procedure TTmp_Etiqueta.Setds_volume(const Value: string);
begin
  Fds_volume := Value;
end;

procedure TTmp_Etiqueta.Setie_impresso(const Value: boolean);
begin
  Fie_impresso := Value;
end;

procedure TTmp_Etiqueta.Setie_imprimir(const Value: boolean);
begin
  Fie_imprimir := Value;
end;

procedure TTmp_Etiqueta.Setnr_conjunto(const Value: integer);
begin
  Fnr_conjunto := Value;
end;

procedure TTmp_Etiqueta.Setnr_cliente_seq(const Value: integer);
begin
  Fnr_cliente_seq := Value;
end;

procedure TTmp_Etiqueta.Setnr_sequencia(const Value: Integer);
begin
  Fnr_sequencia := Value;
end;

procedure TTmp_Etiqueta.Setnr_seq_caixa(const Value: Integer);
begin
  Fnr_seq_caixa := Value;
end;

procedure TTmp_Etiqueta.Setnr_seq_orcamento_item(const Value: integer);
begin
  Fnr_seq_orcamento_item := Value;
end;

end.







